home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue63 / Debug / Demos / BDDmpNam.dpr < prev    next >
Encoding:
Text File  |  2000-10-01  |  629 b   |  23 lines
  1. program BDDmpNam;
  2. {$APPTYPE CONSOLE}
  3. uses
  4.   BorDebug;
  5. var
  6.   Handle: TBorDebHandle;
  7.   NameBuf: array[0..1024] of char;
  8.   NameCount : integer;
  9.   i: integer;
  10.   BorDebError: TBorDebError;
  11. begin
  12.   Handle := BorDebugRegisterFile(PChar(ParamStr(1)), false, true, BorDebError);
  13.   if BorDebError <> deOk then Halt;
  14.   NameCount := BorDebugNamesTotalNames(Handle);
  15.   writeln('Total names: ', NameCount);
  16.   for i := 1 to NameCount do  // Note: Name index is 1-based!
  17.   begin
  18.     BorDebugNameIndexToName(Handle, i, NameBuf, SizeOf(NameBuf));
  19.     Writeln(i, ' = ', NameBuf);
  20.   end;
  21.   BorDebugUnregisterFile(Handle);
  22. end.
  23.